home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-09_2002_CSW_Side_B.d64
/
angyal %capac
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
25 lines
0 sys2832
4 poke53280,0:printchr$(147)
5 sys52480,peek(186),"angyal.dat",1
15 poke56579,255
16 poke56577,255
40 reada,b,v
50 ifv=255thenrestore
60 c=a/0.05966:f=int(c/256)
70 poke54273,f:poke54272,c-256*f
90 poke54277,136:poke54278,86
110 poke54296,15
120 poke54276,33
125 poke56577,v
130 fori=1tob:next
140 poke54276,32
150 goto40
500 data528,500,254,528,250,253,495,250,252,528,500,251,396,600,250
510 data660,500,249,660,250,248,594,250,248,660,500,249,528,500,250
520 data660,500,251,880,500,252,792,1000,253,0,250,254
530 data660,500,251,880,500,252,792,1000,253,0,250,254
540 data792,500,253,792,250,252,880,250,251,792,500,250,660,500,249
550 data704,500,248,704,250,249,792,250,251,704,500,252,594,500,253
560 data660,500,254,594,500,253,528,1000,252,0,250,251
570 data660,500,254,594,500,253,528,1000,252,0,250,255